home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 54.zip / BS part 54 / A-TrainConstSet_d1.adf / Install Example Games < prev    next >
Encoding:
Text File  |  1993-03-25  |  1.3 KB  |  57 lines
  1. ; installation script for ATCS Example Games
  2.  
  3. ; tell user what's happening
  4.  
  5. (user 2)
  6.  
  7. (message
  8.     (cat "Because of limited space on the A-Train Construction Set floppy "
  9.          "disks, the Example Games where shipped compressed. This utility "
  10.          "allows you to decompress the games to a formatted floppy disk.\n"
  11.          "If you installed the Construction Set onto a hard "
  12.          "drive, then the Example Games have already been decompressed "
  13.          "and placed in the A-Train Drawer. If so, you can select Abort Install now.\n"
  14.          "Otherwise, you will be asked to indicate onto which disk you want to "
  15.          "put the Examples Games.  You can insert that disk right now and then "
  16.          "select Proceed. If you have only one floppy drive, you may need to "
  17.          "swap disks occasionally."
  18.     )
  19. )
  20.  
  21. ; ask user where to put the drawer
  22.  
  23. (set robopath
  24.     (askdir
  25.         (prompt "Please indicate onto which disk you want to put the Example Games.")
  26.         (help @askdir-help)
  27.         (default @default-dest)
  28.         (disk)
  29.     )
  30. )
  31.  
  32. (complete 10)
  33.  
  34. (set @default-dest "")
  35.  
  36. (askdisk
  37.     (prompt "Please insert the disk labeled \"A-Train Construction Set Disk 1\".")
  38.     (help @askdisk-help)
  39.     (dest "ATCS Disk 1")
  40. )
  41.  
  42. (complete 20)
  43.  
  44. (working "Installing Example Games.")
  45.  
  46. (run
  47.     (cat "\"ATCS Disk 1:c/atcs_expand\" \"ATCS Disk 1:examples.res\" \""
  48.         (tackon robopath "Example") "\" f"
  49.     )
  50. )
  51.  
  52. (complete 100)
  53.  
  54. (exit)
  55.  
  56. (welcome)            ; its a trick!
  57.